home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 March / Ahoy_Magazine_85-03_1985_Double_L.d64 / home budget (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  134 lines
  1. 10 rem*********************
  2. 20 rem*                   *
  3. 30 rem*    home budget    *
  4. 40 rem*        by         *
  5. 50 rem*    brian dobbs    *
  6. 60 rem*                   *
  7. 70 rem*  timmins,ontario  *
  8. 80 rem*                   *
  9. 90 rem*********************
  10. 100 poke53280,12:poke53281,0:dima$(13,13):goto180
  11. 110 gosub1230
  12. 120 open14,8,14,"0:"+nm$+",s,":x=1
  13. 130 y=2
  14. 140 input#14, a$(x,y):y=y+1:ify>13then160
  15. 150 goto140
  16. 160 x=x+1:ifx>13thenclose14:goto180
  17. 170 goto130
  18. 180 print"[147][154]"tab(14)"budget menu"
  19. 190 printtab(10)"1-w[146]rite monthly bills":print""
  20. 200 printtab(10)"2-v[146]iew monthly bills":print""
  21. 210 printtab(10)"3-b[146]archart trend of bills":print""
  22. 220 printtab(10)"4-p[146]rinter trend of bills":print""
  23. 230 printtab(10)"5-s[146]ave data to disk":print""
  24. 240 printtab(10)"6-l[146]oad data from disk":print""
  25. 250 printtab(10)"7-create initial file":print""
  26. 260 printtab(12)"select choice ?":y=0
  27. 270 getan$:ifan$=""then270
  28. 280 forx=1to7:ifan$=mid$("wvbpslc",x,1)theny=x
  29. 290 next:onygoto410,300,500,730,960,110,990:goto180
  30. 300 print"[147]":input"  enter month to view";an$:gosub1020
  31. 310 print"[147]":printtab(15)an$:print"":y=2
  32. 320 printa$(1,y):y=y+1:ify>13then340
  33. 330 goto320
  34. 340 print"[145][145][145][145][145][145][145][145][145][145][145][145][145]":y=2
  35. 350 printtab(15)a$(x,y):y=y+1:ify>13then370
  36. 360 goto350
  37. 370 gosub1300
  38. 380 print"monthly total"tab(14)q+aa+bb
  39. 390 geta$:ifa$=""then390
  40. 400 goto180
  41. 410 print"[147]":input"  what month to write bills";an$
  42. 420 gosub1020
  43. 430 y=2:print"[147]":printtab(15)an$:print""
  44. 440 printa$(1,y):y=y+1:ify>13then460
  45. 450 goto440
  46. 460 print"[145][145][145][145][145][145][145][145][145][145][145][145][145]":y=2
  47. 470 printtab(15):inputa$(x,y)
  48. 480 y=y+1:ify>13then180
  49. 490 goto470
  50. 500 input"[147]  enter name of bill";an$
  51. 510 forp=2to13
  52. 520 ifan$=a$(1,p)theny=p
  53. 530 next
  54. 540 print"  what is maximum scale for "a$(1,y):input"  ";b
  55. 550 print"[147]":printtab(20-(len(a$(1,y))/2))a$(1,y)
  56. 560 print""b:z=0
  57. 570 z=z+(b/20):ifz=bthen590
  58. 580 printint(b-z):goto570
  59. 590 r=1992:x=2:t=56264:u=2
  60. 600 fore=rtor-(40*((val(a$(x,y))/(b/20))))step-40:pokee,224:next
  61. 610 forf=ttot-(40*((val(a$(x,y))/(b/20))))step-40:pokef,u:next
  62. 620 r=r+2:x=x+1:t=t+2:u=u+1
  63. 630 ifu=3thenu=1
  64. 640 ifx=14then660
  65. 650 goto600
  66. 660 r=1992:t=56264:poker,138:poket,1:poker+2,134:poket+2,1:poker+4,141
  67. 670 poket+4,1:poker+6,129:poket+6,1:poker+8,141:poket+8,1:poker+10,138
  68. 680 poket+10,1:poker+12,138:poket+12,1:poker+14,129:poket+14,1:poker+16,147
  69. 690 poket+16,1:poker+18,143:poket+18,1:poker+20,142:poket+20,1:poker+22,132
  70. 700 poket+22,1
  71. 710 geta$:ifa$=""then710
  72. 720 goto180
  73. 730 open4,4:print#4,tab(38)"budget 1984":print#4:l=2:m=7
  74. 740 print#4," bill               ";
  75. 750 print#4,"january   febuary   march     april     may       june"
  76. 760 gosub850
  77. 770 l=2:m=7
  78. 780 gosub890
  79. 790 l=8:m=13:print#4," bill               ";
  80. 800 print#4,"july      august    september october   november  december"
  81. 810 gosub850
  82. 820 l=8:m=13
  83. 830 gosub890
  84. 840 close4:restore:goto180
  85. 850 fory=1to13:z=20-len(a$(1,y))
  86. 860 print#4,a$(1,y)tab(z);
  87. 870 fori=ltom:print#4,(a$(i,y))tab(10-len(a$(i,y)));:nexti:print#4,chr$(10)
  88. 880 nexty:print#4:return
  89. 890 print#4,"monthly total"tab(6)
  90. 900 forx=ltom
  91. 910 gosub1300
  92. 920 c=q+aa+bb:c$=str$(c)
  93. 930 print#4,q+aa+bbtab(9-len(c$));:nextx
  94. 940 print#4,chr$(10)
  95. 950 return
  96. 960 gosub1230
  97. 970 open14,8,14,"@0:"+nm$+",s,w"
  98. 980 x=1:goto1170
  99. 990 print"[147]  a total of 12 bills will be entered.":x=1:y=2
  100. 1000 input"name of bill";a$(x,y):y=y+1:ify>13then1070
  101. 1010 goto1000
  102. 1020 forw=1to12
  103. 1030 readd$
  104. 1040 ifan$=d$thenx=w+1
  105. 1050 next
  106. 1060 restore:return
  107. 1070 print"[147]":x=2
  108. 1080 y=2
  109. 1090 a$(x,y)="0"
  110. 1100 y=y+1:ify>13then1120
  111. 1110 goto1090
  112. 1120 x=x+1:ifx>13then1140
  113. 1130 goto1080
  114. 1140 gosub1230
  115. 1150 open14,8,14,"0:"+nm$+",s,w"
  116. 1160 x=1:print"  creating initial file[146]"
  117. 1170 y=2
  118. 1180 print#14,a$(x,y):y=y+1:ify>13then1200
  119. 1190 goto1180
  120. 1200 x=x+1:ifx>13then1220
  121. 1210 goto1170
  122. 1220 close14:goto180
  123. 1230 input"[147]  filename[146]";nm$
  124. 1240 print"  press 'f1[146]' to continue"
  125. 1250 geta$:ifa$=""then1250
  126. 1260 ifa$=chr$(133)thenreturn
  127. 1270 goto1260
  128. 1280 data january,february,march,april,may,june,july,august,september,october
  129. 1290 data november,december
  130. 1300 q=(val(a$(x,2)))+(val(a$(x,3)))+(val(a$(x,4)))+(val(a$(x,5)))
  131. 1310 aa=(val(a$(x,6)))+(val(a$(x,7)))+(val(a$(x,8)))+(val(a$(x,9)))
  132. 1320 bb=(val(a$(x,10)))+(val(a$(x,11)))+(val(a$(x,12)))+(val(a$(x,13)))
  133. 1330 return
  134.